﻿Public Class BEfila

#Region "Declaración de variables"

    Private codFila As Integer
    Private codColumna As Integer
    Private codPiso As Integer
    Private codCongelador As Integer
    Private capacidad As Integer
    Private disponible As Integer
    Private estado As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodFila As Object, _
           ByVal pCodColumna As Object, _
           ByVal pCodPiso As Object, _
           ByVal pCodCongelador As Object, _
           ByVal pCapacidad As Object, _
           ByVal pDisponible As Object, _
           ByVal pEstado As Object)

        Me._codColumna = pCodColumna
        Me._codPiso = pCodPiso
        Me._codCongelador = pCodCongelador
        Me._capacidad = pCapacidad
        Me._disponible = pDisponible
        Me._estado = pEstado

    End Sub

    Public Property _codFila() As Integer
        Get
            Return Me.codFila
        End Get
        Set(ByVal value As Integer)
            Me.codFila = value
        End Set
    End Property

    Public Property _codColumna() As Integer
        Get
            Return Me.codColumna
        End Get
        Set(ByVal value As Integer)
            Me.codColumna = value
        End Set
    End Property

    Public Property _codPiso() As Integer
        Get
            Return Me.codPiso
        End Get
        Set(ByVal value As Integer)
            Me.codPiso = value
        End Set
    End Property

    Public Property _codCongelador() As Integer
        Get
            Return Me.codCongelador
        End Get
        Set(ByVal value As Integer)
            Me.codCongelador = value
        End Set
    End Property

    Public Property _capacidad() As Integer
        Get
            Return Me.capacidad
        End Get
        Set(ByVal value As Integer)
            Me.capacidad = value
        End Set
    End Property

    Public Property _disponible() As Integer
        Get
            Return Me.disponible
        End Get
        Set(ByVal value As Integer)
            Me.disponible = value
        End Set
    End Property


    Public Property _estado() As Boolean
        Get
            Return Me.estado
        End Get
        Set(ByVal value As Boolean)
            Me.estado = value
        End Set
    End Property

End Class
